home *** CD-ROM | disk | FTP | other *** search
/ Night Owl 6 / Night Owl's Shareware - PDSI-006 - Night Owl Corp (1990).iso / 033a / aed244a.zip / UPGRADE3.BAT < prev    next >
DOS Batch File  |  1991-02-16  |  8KB  |  331 lines
  1. echo off
  2.  
  3. echo RBBS batch file to upgrade RBBS v17.3x with .MRGs using QB3.0
  4.  
  5. if %1?==? goto Usage
  6.  
  7. :Start
  8.  
  9. if not exist C:\QB3\BLED.EXE goto NoBLED
  10. if not exist ANSIED-3.BAS goto CBled0
  11. if not exist VARMOD.EXE goto NoVARMOD
  12.  
  13. :CBled0
  14.  
  15. if not exist CVAR%1.BAS goto CBled1
  16. if exist CNFG-VAR.BAS del CNFG-VAR.BAS
  17. ren CVAR%1.BAS CNFG-VAR.BAS
  18.  
  19. :CBled1
  20.  
  21. if not exist CONFIG.BAS goto CBled2
  22. if not exist CNFG%1.MRG goto CBled2
  23. C:\QB3\BLED /B/L CONFIG.BAS CNFG%1.MRG CNFG%1.BAS
  24. del CONFIG.BAS
  25. del CNFG%1.MRG
  26. ren CNFG%1.BAS CONFIG.BAS
  27.  
  28. :CBled2
  29.  
  30. if not exist CNFG-SUB.BAS goto RBled0
  31. if not exist CSUB%1.MRG goto RBled0
  32. C:\QB3\BLED /B/L CNFG-SUB.BAS CSUB%1.MRG CSUB%1.BAS
  33. del CNFG-SUB.BAS
  34. del CSUB%1.MRG
  35. ren CSUB%1.BAS CNFG-SUB.BAS
  36.  
  37. :RBled0
  38.  
  39. if not exist RVAR%1.BAS goto RBled1
  40. if exist RBBS-VAR.BAS del RBBS-VAR.BAS
  41. ren RVAR%1.BAS RBBS-VAR.BAS
  42.  
  43. :RBled1
  44.  
  45. if not exist RBBS-PC.BAS goto RBled2
  46. if not exist R-PC%1.MRG goto RBled2
  47. C:\QB3\BLED /B/L RBBS-PC.BAS R-PC%1.MRG R-PC%1.BAS
  48. del RBBS-PC.BAS
  49. del R-PC%1.MRG
  50. ren R-PC%1.BAS RBBS-PC.BAS
  51.  
  52. :RBled2
  53.  
  54. if not exist RBBSSUB1.BAS goto RBled3
  55. if not exist RSB1%1.MRG goto RBled3
  56. C:\QB3\BLED /B/L RBBSSUB1.BAS RSB1%1.MRG RSB1%1.BAS
  57. del RBBSSUB1.BAS
  58. del RSB1%1.MRG
  59. ren RSB1%1.BAS RBBSSUB1.BAS
  60.  
  61. :RBled3
  62.  
  63. if not exist RBBSSUB2.BAS goto RBled4
  64. if not exist RSB2%1.MRG goto RBled4
  65. C:\QB3\BLED /B/L RBBSSUB2.BAS RSB2%1.MRG RSB2%1.BAS
  66. del RBBSSUB2.BAS
  67. del RSB2%1.MRG
  68. ren RSB2%1.BAS RBBSSUB2.BAS
  69.  
  70. :RBled4
  71.  
  72. if not exist RBBSSUB3.BAS goto RBled5
  73. if not exist RSB3%1.MRG goto RBled5
  74. C:\QB3\BLED /B/L RBBSSUB3.BAS RSB3%1.MRG RSB3%1.BAS
  75. del RBBSSUB3.BAS
  76. del RSB3%1.MRG
  77. ren RSB3%1.BAS RBBSSUB3.BAS
  78.  
  79. :RBled5
  80.  
  81. if not exist RBBSSUB4.BAS goto RBled6
  82. if not exist RSB4%1.MRG goto RBled6
  83. C:\QB3\BLED /B/L RBBSSUB4.BAS RSB4%1.MRG RSB4%1.BAS
  84. del RBBSSUB4.BAS
  85. del RSB4%1.MRG
  86. ren RSB4%1.BAS RBBSSUB4.BAS
  87.  
  88. :RBled6
  89.  
  90. if not exist RBBSSUB5.BAS goto ABled1
  91. if not exist RSB5%1.MRG goto ABled1
  92. C:\QB3\BLED /B/L RBBSSUB5.BAS RSB5%1.MRG RSB5%1.BAS
  93. del RBBSSUB5.BAS
  94. del RSB5%1.MRG
  95. ren RSB5%1.BAS RBBSSUB5.BAS
  96.  
  97. :ABled1
  98.  
  99. if not exist ANSIED-3.BAS goto ArgTest
  100. VARMOD %1
  101. if not exist AED3%1.MRG goto ArgTest
  102. C:\QB3\BLED /B/L ANSIED-3.BAS AED3%1.MRG AED3%1.BAS
  103. del ANSIED-3.BAS
  104. del AED3%1.MRG
  105. ren AED3%1.BAS ANSIED-3.BAS
  106.  
  107. :ArgTest
  108.  
  109. shift
  110. if %1==Y goto RBBSTest
  111. if %1==y goto RBBSTest
  112. if %1==N goto End
  113. if %1==n goto End
  114. if %1?==?  goto End
  115. goto CBled0
  116.  
  117. :RBBSTest
  118.  
  119. if not exist RBBS-PC.BAS goto NoPC
  120. if not exist RBBSSUB1.BAS goto NoSUB1
  121. if not exist RBBSSUB2.BAS goto NoSUB2
  122. if not exist RBBSSUB3.BAS goto NoSUB3
  123. if not exist RBBSSUB4.BAS goto NoSUB4
  124. if not exist RBBSSUB5.BAS goto NoSUB5
  125. if not exist RBBS-VAR.BAS goto NoRVAR
  126.  
  127. if not exist C:\QB3\QB.EXE goto NoQB
  128. if not exist C:\QB3\LIB\BCOM30.LIB goto NoBCOM
  129. REM if not exist C:\QB3\LINK.EXE goto NoLINK
  130. if not exist C:\QB3\GWCOM.OBJ goto NoGWCOM
  131. if not exist 10-NET.OBJ goto No10
  132. if not exist ANSI17.OBJ goto NoANSI
  133. if not exist BDRIVEC2.OBJ goto NoBD
  134. if not exist FOSSCOMM.OBJ goto NoFOSS
  135. if not exist GIVEBK31.OBJ goto NoGIVE
  136. if not exist PC-NET.OBJ goto NoPCNET
  137. if not exist QBARCV6.OBJ goto NoQBARCV
  138. if not exist RBBSDV.OBJ goto NoDV
  139. if not exist RBBSML.OBJ goto NoML
  140. if not exist RBBSUTIL.OBJ goto NoUTIL
  141. if not exist XMODEM.OBJ goto NoXMOD
  142. if not exist RBBSHS.OBJ goto NoHS
  143. if not exist BASNOV.OBJ goto NoNOV
  144.  
  145. :ATest
  146.  
  147. if not exist ANSIED-3.BAS goto RCompile
  148. if not exist RBBS-VAR.MOD goto NoMOD
  149. if not exist MOVCSTR.OBJ goto NoMOVC
  150. if not exist FINDWORD.OBJ goto NoFIND
  151.  
  152. :RCompile
  153.  
  154. echo Compiling RBBS-PC.BAS...
  155. C:\QB3\QB RBBS-PC.BAS,RBBS-PC,NUL,/O/E/S/C:4096;
  156. echo Compiling RBBSSUB1.BAS...
  157. C:\QB3\QB RBBSSUB1.BAS,RBBSSUB1,NUL,/X/O;
  158. echo Compiling RBBSSUB2.BAS...
  159. C:\QB3\QB RBBSSUB2.BAS,RBBSSUB2,NUL,/O/E;
  160. echo Compiling RBBSSUB3.BAS...
  161. C:\QB3\QB RBBSSUB3.BAS,RBBSSUB3,NUL,/O/E;
  162. echo Compiling RBBSSUB4.BAS...
  163. C:\QB3\QB RBBSSUB4.BAS,RBBSSUB4,NUL,/O/E;
  164. echo Compiling RBBSSUB5.BAS...
  165. C:\QB3\QB RBBSSUB5.BAS,RBBSSUB5,NUL,/O/E;
  166. if not exist ANSIED-3.BAS goto DoLink
  167. echo Compiling ANSIED-3.BAS...
  168. C:\QB3\QB ANSIED-3.BAS,ANSIED-3,NUL,/X/O/E;
  169.  
  170. :DoLink
  171.  
  172. if exist LINK3.DAT del LINK3.DAT
  173.  
  174. echo RBBS-PC+          >> LINK3.DAT
  175. echo RBBSSUB1+         >> LINK3.DAT
  176. echo RBBSSUB2+         >> LINK3.DAT
  177. echo RBBSSUB3+         >> LINK3.DAT
  178. echo RBBSSUB4+         >> LINK3.DAT
  179. echo RBBSSUB5+         >> LINK3.DAT
  180. if exist ANSIED-3.BAS echo ANSIED-3+ >> LINK3.DAT
  181. if exist ANSIED-3.BAS echo MOVCSTR+  >> LINK3.DAT
  182. if exist ANSIED-3.BAS echo FINDWORD+ >> LINK3.DAT
  183. echo C:\QB3\GWCOM.OBJ+ >> LINK3.DAT
  184. echo QBARCV6+          >> LINK3.DAT
  185. echo ANSI17+           >> LINK3.DAT
  186. echo XMODEM+           >> LINK3.DAT
  187. echo RBBSML+           >> LINK3.DAT
  188. echo BDRIVEC2+         >> LINK3.DAT
  189. echo PC-NET+           >> LINK3.DAT
  190. echo 10-NET+           >> LINK3.DAT
  191. echo RBBSUTIL+         >> LINK3.DAT
  192. echo RBBSDV+           >> LINK3.DAT
  193. echo GIVEBK31+         >> LINK3.DAT
  194. echo RBBSHS+           >> LINK3.DAT
  195. echo BASNOV+           >> LINK3.DAT
  196. echo FOSSCOMM,         >> LINK3.DAT
  197. echo RBBS-PC,          >> LINK3.DAT
  198. echo NUL,              >> LINK3.DAT
  199. echo C:\QB3\LIB\BCOM30.LIB /STACK:2048 /EXEPACK >> LINK3.DAT
  200.  
  201. LINK @LINK3.DAT
  202.  
  203. :CCompile
  204.  
  205. if not exist CONFIG.BAS goto End
  206. if not exist CNFG-SUB.BAS goto NoCSUB
  207. if not exist CNFG-VAR.BAS goto NoCVAR
  208.  
  209. echo Compiling CONFIG.BAS...
  210. C:\QB3\QB CONFIG.BAS,CONFIG,NUL,/O/E/C:4096/S;
  211. echo Compiling CNFG-SUB.BAS...
  212. C:\QB3\QB CNFG-SUB.BAS,CNFG-SUB,NUL,/O/E/C:4096/S;
  213. LINK CONFIG+CNFG-SUB+RBBSUTIL+FOSSCOMM,CONFIG,NUL,C:\QB3\LIB\BCOM30.LIB/EXEPACK;
  214.  
  215. goto End
  216.  
  217. :NoQB
  218. echo Missing C:\QB3\QB.EXE... Aborted.
  219. goto End
  220. :NoLINK
  221. echo Missing C:\QB3\LINK.EXE... Aborted.
  222. goto End
  223. :NoBLED
  224. echo Missing C:\QB3\BLED.EXE... Aborted.
  225. goto End
  226. :NoGWCOM
  227. echo Missing C:\QB3\GWCOM.OBJ... Aborted.
  228. goto End
  229. :No10
  230. echo Missing 10-NET.OBJ... Aborted.
  231. goto End
  232. :NoANSI
  233. echo Missing ANSI17.OBJ... Aborted.
  234. goto End
  235. :NoBD
  236. echo Missing BDRIVEC2.OBJ... Aborted.
  237. goto End
  238. :NoFOSS
  239. echo Missing FOSSCOMM.OBJ... Aborted.
  240. goto End
  241. :NoGIVE
  242. echo Missing GIVEBK31.OBJ... Aborted.
  243. goto End
  244. :NoPCNET
  245. echo Missing PC-NET.OBJ... Aborted.
  246. goto End
  247. :NoQBARCV
  248. echo Missing QBARCV6.OBJ... Aborted.
  249. goto End
  250. :NoDV
  251. echo Missing RBBSDV.OBJ... Aborted.
  252. goto End
  253. :NoML
  254. echo Missing RBBSML.OBJ... Aborted.
  255. goto End
  256. :NoUTIL
  257. echo Missing RBBSUTIL.OBJ... Aborted.
  258. goto End
  259. :NoXMOD
  260. echo Missing XMODEM.OBJ... Aborted.
  261. goto End
  262. :NoHS
  263. echo Missing RBBSHS.OBJ... Aborted.
  264. goto End
  265. :NoNOV
  266. echo Missing BASNOV.OBJ... Aborted.
  267. goto End
  268. :NoMOVC
  269. echo Missing MOVCSTR.OBJ (for ANSIED-3.BAS)... Aborted.
  270. goto End
  271. :NoFIND
  272. echo Missing FINDWORD.OBJ (for ANSIED-3.BAS)... Aborted.
  273. goto End
  274. :NoPC
  275. echo Missing RBBS-PC.BAS... Aborted.
  276. goto End
  277. :NoSUB1
  278. echo Missing RBBSSUB1.BAS... Aborted.
  279. goto End
  280. :NoSUB2
  281. echo Missing RBBSSUB2.BAS... Aborted.
  282. goto End
  283. :NoSUB3
  284. echo Missing RBBSSUB3.BAS... Aborted.
  285. goto End
  286. :NoSUB4
  287. echo Missing RBBSSUB4.BAS... Aborted.
  288. goto End
  289. :NoSUB5
  290. echo Missing RBBSSUB5.BAS... Aborted.
  291. goto End
  292. :NoRVAR
  293. echo Missing RBBS-VAR.BAS... Aborted.
  294. goto End
  295. :NoCNFG
  296. echo Missing CONFIG.BAS... Aborted.
  297. goto End
  298. :NoCSUB
  299. echo Missing CNFG-SUB.BAS... Aborted.
  300. goto End
  301. :NoCVAR
  302. echo Missing CNFG-VAR.BAS... Aborted.
  303. goto End
  304. :NoBCOM
  305. echo Missing C:\QB3\LIB\BCOM30.LIB... Aborted.
  306. goto End
  307. :NoVARMOD
  308. echo Missing VARMOD.EXE (for ANSIED-3.BAS)... Aborted.
  309. goto End
  310.  
  311. :Usage
  312. echo Usage: UPGRADE xxxx zzzz [Y][N]
  313. echo .
  314. echo        where xxxx and zzzz are the upgrade thingies to add to
  315. echo        the end of the MRG filenames.  Add the Y switch if you
  316. echo        want to compile the upgraded files, or N to skip the compile.
  317. echo .
  318. echo        If ANSIED-3.BAS exists, it will be compiled and linked into
  319. echo        the final RBBS-PC.EXE.  If not, not.
  320. echo .
  321. echo        If the CONFIG files exist, they'll also be upgraded with any
  322. echo        applicable merges.  If not, not.
  323. echo .
  324. echo        You can include as many merges as you like on the command
  325. echo        line.
  326. echo .
  327. echo    Ex: UPGRADE UGLY EDIT Y to add the UGLY and EDIT merges & compile
  328. goto End
  329.  
  330. :End
  331.